home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amoszine PD Edition 0
/
Amoszine PD Edition 0.adf
/
SOURCE_CODE
/
shiny_star.AMOS
/
shiny_star.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
1993-02-25
|
2KB
|
70 lines
'************************************
'* *
'* Glint *
'* ---------------- *
'* *
'* By Malcolm Lavey 1993 *
'* *
'************************************
'
'
Screen Open 0,320,256,32,Lowres
Curs Off : Flash Off : Cls 0 : Hide On
Get Sprite Palette
'
TITLE_TEXT["SHINEY TEXT STAR",20,20]
TITLE_TEXT[" THAT SPARKLES ",23,60]
TITLE_TEXT["ON THE TEXT LETTERS",5,80]
TITLE_TEXT[" VERY COOL..... ",20,120]
'
Do
GLINT
Loop
Procedure TITLE_TEXT[TEX$,X,Y]
'
POS=1
XPOS=0
'
'************************
' XSIZE=WIDTH OF ONE BOB
'************************
'
XSIZE=16
LE=Len(TEX$)
'
For MANY=1 To LE
I=Asc(Mid$(TEX$,POS,1))
IMAGE=I-31
Paste Bob X+XPOS*XSIZE,Y,IMAGE
Inc POS
Inc XPOS
Next MANY
'
End Proc
Procedure GLINT
'
'************************************************
' Search screen display for a pixel,colour 2
'************************************************
'
X=Rnd(320) : Y=Rnd(256)
'
'************************************************
' If found,animate star at that point!
'************************************************
'
If Point(X,Y)=2 and Chanan(1)=0
Channel 1 To Bob 1
Bob 1,X,Y,60
A$="Anim 1,(60,6)(61,6)(63,6)(64,10)(63,6)(62,6)(61,6)(60,6);"
Amal 1,A$
Amal On 1
End If
'
'************************************************
'
End Proc